﻿<%
'	dim conn
'	dim connstr
'	dim dbstr
'	dbstr="Sur#vey2%fDate#/#2%f#_date_Survey_base#.asp"
'	'On Error Resume Next
'	Set conn = Server.CreateObject("ADODB.Connection")
'	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbstr)
'	conn.Open connstr
'	If Err Then
'		err.Clear
'		response.write("数据库连接出错，请检查连接字串!!!")
'		response.End()
'	End If

 My_SQLserver = "localhost"
 My_SQLdatabase = "lenovo"
 My_SQLusername = "root"
 My_SQLpassword = "ljg52603681"
 My_SQLPort = "3306"
 MyChareSet = "gb2312"

 Strconnection="driver={mysql odbc 3.51 driver};server=" & My_SQLserver & ";port="&My_SQLPort&";database=" & My_SQLdatabase & ";user name=" & My_SQLusername & ";password=" & My_SQLpassword
 set conn = server.createobject("adodb.connection")
 Conn.open Strconnection
 Conn.execute("set Names '" & MyChareSet & "'")
 
%>
